Public Class WordReportStation

#Region "Fields"
    Protected _organization_parent_name As String
    Protected _organization_id As String
    Protected _organization_name As String
    Protected _organization_parent_id As String
    Protected _all_police As Integer
    Protected _diagnose_police As Integer
    Protected _police_have_abnormal As Integer
    Protected _number_title_name As String
    Protected _number_police_abnormal As Integer
    Protected _list_name As String
    Protected _list_diagnose As Integer
    Protected _list_abnormal As Integer
    Protected _list_table5_name As String
    Protected _list_table5_price As Double
    Protected _list_table5_police As Integer
    Protected _year As String
    Protected _Data As ArrayList
    Protected _DataCurrent As Integer
#End Region

#Region "Properties"
    Public Property organization_parent_name() As String
        Get
            Return _organization_parent_name
        End Get
        Set(ByVal value As String)
            _organization_parent_name = value
        End Set
    End Property

    Public Property organization_id() As String
        Get
            Return _organization_id
        End Get
        Set(ByVal value As String)
            _organization_id = value
        End Set
    End Property

    Public Property organization_name() As String
        Get
            Return _organization_name
        End Get
        Set(ByVal value As String)
            _organization_name = value
        End Set
    End Property

    Public Property organization_parent_id() As String
        Get
            Return _organization_parent_id
        End Get
        Set(ByVal value As String)
            _organization_parent_id = value
        End Set
    End Property

    Public Property all_police() As Integer
        Get
            Return _all_police
        End Get
        Set(ByVal value As Integer)
            _all_police = value
        End Set
    End Property

    Public Property diagnose_police() As Integer
        Get
            Return _diagnose_police
        End Get
        Set(ByVal value As Integer)
            _diagnose_police = value
        End Set
    End Property

    Public Property police_have_abnormal() As Integer
        Get
            Return _police_have_abnormal
        End Get
        Set(ByVal value As Integer)
            _police_have_abnormal = value
        End Set
    End Property

    Public Property number_title_name() As String
        Get
            Return _number_title_name
        End Get
        Set(ByVal value As String)
            _number_title_name = value
        End Set
    End Property

    Public Property number_police_abnormal() As Integer
        Get
            Return _number_police_abnormal
        End Get
        Set(ByVal value As Integer)
            _number_police_abnormal = value
        End Set
    End Property

    Public Property list_name() As String
        Get
            Return _list_name
        End Get
        Set(ByVal value As String)
            _list_name = value
        End Set
    End Property

    Public Property list_diagnose() As Integer
        Get
            Return _list_diagnose
        End Get
        Set(ByVal value As Integer)
            _list_diagnose = value
        End Set
    End Property

    Public Property list_abnormal() As Integer
        Get
            Return _list_abnormal
        End Get
        Set(ByVal value As Integer)
            _list_abnormal = value
        End Set
    End Property

    Public Property list_table5_name() As String
        Get
            Return _list_table5_name
        End Get
        Set(ByVal value As String)
            _list_table5_name = value
        End Set
    End Property

    Public Property list_table5_price() As Double
        Get
            Return _list_table5_price
        End Get
        Set(ByVal value As Double)
            _list_table5_price = value
        End Set
    End Property

    Public Property list_table5_police() As Integer
        Get
            Return _list_table5_police
        End Get
        Set(ByVal value As Integer)
            _list_table5_police = value
        End Set
    End Property

    Public Property year() As String
        Get
            Return _year
        End Get
        Set(ByVal value As String)
            _year = value
        End Set
    End Property
#End Region

#Region "Methods"
    Public Function getWordReportStationYear() As System.Data.DataSet
        Dim decryptText As New DateUtilities.Encrypt_Data()
        Dim objConn As New MySql.Data.MySqlClient.MySqlConnection( _
            decryptText.getDecrypt(System.Configuration.ConfigurationManager.ConnectionStrings( _
            "PoliceHealthConnectionString").ToString(), True))
        Dim objCmd As New MySql.Data.MySqlClient.MySqlCommand()
        objCmd.Connection = objConn
        objCmd.CommandType = CommandType.StoredProcedure
        objCmd.CommandText = "proc_SELECT_WordReportStationYear"
        objCmd.CommandTimeout = 0

        Dim objDa As New MySql.Data.MySqlClient.MySqlDataAdapter(objCmd)
        Dim objDs As New System.Data.DataSet()
        objDa.Fill(objDs, "Year")

        Return objDs
    End Function

    Public Function getsWordReportStationYear() As ArrayList
        Dim outResult As New ArrayList()
        Dim decryptText As New DateUtilities.Encrypt_Data()
        Dim objConn As New MySql.Data.MySqlClient.MySqlConnection( _
            decryptText.getDecrypt(System.Configuration.ConfigurationManager.ConnectionStrings( _
            "PoliceHealthConnectionString").ToString(), True))
        Dim objCmd As New MySql.Data.MySqlClient.MySqlCommand()
        objCmd.Connection = objConn
        objCmd.CommandType = CommandType.StoredProcedure
        objCmd.CommandText = "proc_SELECT_WordReportStationYear"
        objCmd.CommandTimeout = 0

        Dim objDa As New MySql.Data.MySqlClient.MySqlDataAdapter(objCmd)
        Dim objDs As New System.Data.DataSet()
        objDa.Fill(objDs, "Year")

        For Each objDr As System.Data.DataRow In objDs.Tables("Year").Rows
            Dim obj As New WordReportStation()
            obj.year = objDr.Item("year")
            outResult.Add(obj)
        Next

        Return outResult
    End Function

    Public Function getWordReportStationTable1(ByVal inOrganizationID As String, _
    ByVal inYear As String) As System.Data.DataSet
        Dim decryptText As New DateUtilities.Encrypt_Data()
        Dim objConn As New MySql.Data.MySqlClient.MySqlConnection( _
            decryptText.getDecrypt(System.Configuration.ConfigurationManager.ConnectionStrings( _
            "PoliceHealthConnectionString").ToString(), True))
        Dim objCmd As New MySql.Data.MySqlClient.MySqlCommand()
        objCmd.Connection = objConn
        objCmd.CommandType = CommandType.StoredProcedure
        objCmd.CommandText = "proc_SELECT_WordReportStationTable1"
        objCmd.CommandTimeout = 0

        Dim objParam As New MySql.Data.MySqlClient.MySqlParameter("inOrganizationID", inOrganizationID)
        objCmd.Parameters.Add(objParam)

        objParam = New MySql.Data.MySqlClient.MySqlParameter("inYear", inYear)
        objCmd.Parameters.Add(objParam)

        Dim objDa As New MySql.Data.MySqlClient.MySqlDataAdapter(objCmd)
        Dim objDs As New System.Data.DataSet()
        objDa.Fill(objDs, "WordReportStationTable1")

        Return objDs
    End Function

    Public Function getsWordReportStationTable1(ByVal inOrganizationID As String, _
    ByVal inYear As String) As ArrayList
        Dim outResult As New ArrayList()
        Dim decryptText As New DateUtilities.Encrypt_Data()
        Dim objConn As New MySql.Data.MySqlClient.MySqlConnection( _
            decryptText.getDecrypt(System.Configuration.ConfigurationManager.ConnectionStrings( _
            "PoliceHealthConnectionString").ToString(), True))
        Dim objCmd As New MySql.Data.MySqlClient.MySqlCommand()
        objCmd.Connection = objConn
        objCmd.CommandType = CommandType.StoredProcedure
        objCmd.CommandText = "proc_SELECT_WordReportStationTable1"
        objCmd.CommandTimeout = 0

        Dim objParam As New MySql.Data.MySqlClient.MySqlParameter("inOrganizationID", inOrganizationID)
        objCmd.Parameters.Add(objParam)

        objParam = New MySql.Data.MySqlClient.MySqlParameter("inYear", inYear)
        objCmd.Parameters.Add(objParam)

        Dim objDa As New MySql.Data.MySqlClient.MySqlDataAdapter(objCmd)
        Dim objDs As New System.Data.DataSet()
        objDa.Fill(objDs, "WordReportStationTable1")

        For Each objDr As System.Data.DataRow In objDs.Tables("WordReportStationTable1").Rows
            Dim obj As New WordReportStation()
            obj.organization_parent_name = objDr.Item("organization_parent_name")
            obj.organization_id = objDr.Item("organization_id")
            obj.organization_name = objDr.Item("organization_name")
            obj.organization_parent_id = objDr.Item("organization_parent_id")
            obj.all_police = objDr.Item("all_police")
            obj.diagnose_police = objDr.Item("police_diag")

            outResult.Add(obj)
        Next

        Return outResult
    End Function

    Public Function getWordReportStationTable2(ByVal inOrganizationID As String, _
    ByVal inYear As String) As System.Data.DataSet
        Dim decryptText As New DateUtilities.Encrypt_Data()
        Dim objConn As New MySql.Data.MySqlClient.MySqlConnection( _
            decryptText.getDecrypt(System.Configuration.ConfigurationManager.ConnectionStrings( _
            "PoliceHealthConnectionString").ToString(), True))
        Dim objCmd As New MySql.Data.MySqlClient.MySqlCommand()
        objCmd.Connection = objConn
        objCmd.CommandType = CommandType.StoredProcedure
        objCmd.CommandText = "proc_SELECT_WordReportStationTable2"
        objCmd.CommandTimeout = 0

        Dim objParam As New MySql.Data.MySqlClient.MySqlParameter("inOrganizationID", inOrganizationID)
        objCmd.Parameters.Add(objParam)

        objParam = New MySql.Data.MySqlClient.MySqlParameter("inYear", inYear)
        objCmd.Parameters.Add(objParam)

        Dim objDa As New MySql.Data.MySqlClient.MySqlDataAdapter(objCmd)
        Dim objDs As New System.Data.DataSet()
        objDa.Fill(objDs, "WordReportStationTable2")

        Return objDs
    End Function

    Public Function getsWordReportStationTable2(ByVal inOrganizationID As String, _
    ByVal inYear As String) As ArrayList
        Dim outResult As New ArrayList()
        Dim decryptText As New DateUtilities.Encrypt_Data()
        Dim objConn As New MySql.Data.MySqlClient.MySqlConnection( _
            decryptText.getDecrypt(System.Configuration.ConfigurationManager.ConnectionStrings( _
            "PoliceHealthConnectionString").ToString(), True))
        Dim objCmd As New MySql.Data.MySqlClient.MySqlCommand()
        objCmd.Connection = objConn
        objCmd.CommandType = CommandType.StoredProcedure
        objCmd.CommandText = "proc_SELECT_WordReportStationTable2"
        objCmd.CommandTimeout = 0

        Dim objParam As New MySql.Data.MySqlClient.MySqlParameter("inOrganizationID", inOrganizationID)
        objCmd.Parameters.Add(objParam)

        objParam = New MySql.Data.MySqlClient.MySqlParameter("inYear", inYear)
        objCmd.Parameters.Add(objParam)

        Dim objDa As New MySql.Data.MySqlClient.MySqlDataAdapter(objCmd)
        Dim objDs As New System.Data.DataSet()
        objDa.Fill(objDs, "WordReportStationTable2")

        For Each objDr As System.Data.DataRow In objDs.Tables("WordReportStationTable2").Rows
            Dim obj As New WordReportStation()
            obj.organization_id = objDr.Item("organization_id")
            obj.organization_name = objDr.Item("organization_name")
            obj.organization_parent_id = objDr.Item("organization_parent_id")
            obj.diagnose_police = objDr.Item("police_diag")
            obj.police_have_abnormal = objDr.Item("police_abnormal")

            outResult.Add(obj)
        Next

        Return outResult
    End Function


    Public Function getWordReportStationTable3(ByVal inOrganizationID As String, _
    ByVal inYear As String) As System.Data.DataSet
        Dim decryptText As New DateUtilities.Encrypt_Data()
        Dim objConn As New MySql.Data.MySqlClient.MySqlConnection( _
            decryptText.getDecrypt(System.Configuration.ConfigurationManager.ConnectionStrings( _
            "PoliceHealthConnectionString").ToString(), True))
        Dim objCmd As New MySql.Data.MySqlClient.MySqlCommand()
        objCmd.Connection = objConn
        objCmd.CommandType = CommandType.StoredProcedure
        objCmd.CommandText = "proc_SELECT_WordReportStationTable3"
        objCmd.CommandTimeout = 0

        Dim objParam As New MySql.Data.MySqlClient.MySqlParameter("inOrganizationID", inOrganizationID)
        objCmd.Parameters.Add(objParam)

        objParam = New MySql.Data.MySqlClient.MySqlParameter("inYear", inYear)
        objCmd.Parameters.Add(objParam)

        Dim objDa As New MySql.Data.MySqlClient.MySqlDataAdapter(objCmd)
        Dim objDs As New System.Data.DataSet()
        objDa.Fill(objDs, "WordReportStationTable3")

        Return objDs
    End Function

    Public Function getsWordReportStationTable3(ByVal inOrganizationID As String, _
    ByVal inYear As String) As ArrayList
        Dim outResult As New ArrayList()
        Dim decryptText As New DateUtilities.Encrypt_Data()
        Dim objConn As New MySql.Data.MySqlClient.MySqlConnection( _
            decryptText.getDecrypt(System.Configuration.ConfigurationManager.ConnectionStrings( _
            "PoliceHealthConnectionString").ToString(), True))
        Dim objCmd As New MySql.Data.MySqlClient.MySqlCommand()
        objCmd.Connection = objConn
        objCmd.CommandType = CommandType.StoredProcedure
        objCmd.CommandText = "proc_SELECT_WordReportStationTable3"
        objCmd.CommandTimeout = 0

        Dim objParam As New MySql.Data.MySqlClient.MySqlParameter("inOrganizationID", inOrganizationID)
        objCmd.Parameters.Add(objParam)

        objParam = New MySql.Data.MySqlClient.MySqlParameter("inYear", inYear)
        objCmd.Parameters.Add(objParam)

        Dim objDa As New MySql.Data.MySqlClient.MySqlDataAdapter(objCmd)
        Dim objDs As New System.Data.DataSet()
        objDa.Fill(objDs, "WordReportStationTable3")

        For Each objDr As System.Data.DataRow In objDs.Tables("WordReportStationTable3").Rows
            Dim obj As New WordReportStation()
            obj.number_title_name = objDr.Item("number_abnormal")
            obj.number_police_abnormal = objDr.Item("police_abnormal")
            obj.all_police = objDr.Item("police_all")

            outResult.Add(obj)
        Next

        Return outResult
    End Function

    Public Function getWordReportStationTable4(ByVal inOrganizationID As String, _
    ByVal inYear As String, ByVal inReportType As String) As System.Data.DataSet
        Dim decryptText As New DateUtilities.Encrypt_Data()
        Dim objConn As New MySql.Data.MySqlClient.MySqlConnection( _
            decryptText.getDecrypt(System.Configuration.ConfigurationManager.ConnectionStrings( _
            "PoliceHealthConnectionString").ToString(), True))
        Dim objCmd As New MySql.Data.MySqlClient.MySqlCommand()
        objCmd.Connection = objConn
        objCmd.CommandType = CommandType.StoredProcedure
        objCmd.CommandText = "proc_SELECT_SummaryReport"
        objCmd.CommandTimeout = 0

        Dim objParam As New MySql.Data.MySqlClient.MySqlParameter("inOrganizationID", inOrganizationID)
        objCmd.Parameters.Add(objParam)

        objParam = New MySql.Data.MySqlClient.MySqlParameter("inYear", inYear)
        objCmd.Parameters.Add(objParam)

        objParam = New MySql.Data.MySqlClient.MySqlParameter("inReportType", inReportType)
        objCmd.Parameters.Add(objParam)

        Dim objDa As New MySql.Data.MySqlClient.MySqlDataAdapter(objCmd)
        Dim objDs As New System.Data.DataSet()
        objDa.Fill(objDs, "WordReportStationTable4")

        Return objDs
    End Function

    Public Function getsWordReportStationTable4(ByVal inOrganizationID As String, _
    ByVal inYear As String, ByVal inReportType As String) As ArrayList
        Dim outResult As New ArrayList()
        Dim decryptText As New DateUtilities.Encrypt_Data()
        Dim objConn As New MySql.Data.MySqlClient.MySqlConnection( _
            decryptText.getDecrypt(System.Configuration.ConfigurationManager.ConnectionStrings( _
            "PoliceHealthConnectionString").ToString(), True))
        Dim objCmd As New MySql.Data.MySqlClient.MySqlCommand()
        objCmd.Connection = objConn
        objCmd.CommandType = CommandType.StoredProcedure
        objCmd.CommandText = "proc_SELECT_SummaryReport"
        objCmd.CommandTimeout = 0

        Dim objParam As New MySql.Data.MySqlClient.MySqlParameter("inOrganizationID", inOrganizationID)
        objCmd.Parameters.Add(objParam)

        objParam = New MySql.Data.MySqlClient.MySqlParameter("inYear", inYear)
        objCmd.Parameters.Add(objParam)

        objParam = New MySql.Data.MySqlClient.MySqlParameter("inReportType", inReportType)
        objCmd.Parameters.Add(objParam)

        Dim objDa As New MySql.Data.MySqlClient.MySqlDataAdapter(objCmd)
        Dim objDs As New System.Data.DataSet()
        objDa.Fill(objDs, "WordReportStationTable4")

        If CType(inYear, Integer) < 2554 Then
            For Each objDr As System.Data.DataRow In objDs.Tables("WordReportStationTable4").Rows
                Dim obj As New WordReportStation()
                obj.list_name = objDr.Item("list_name_1")
                obj.list_diagnose = CInt(objDr.Item("sum_exam_1").ToString()) + _
                    CInt(objDr.Item("sum_exam_2").ToString())
                obj.list_abnormal = CInt(objDr.Item("sum_result_false_1").ToString()) + _
                    CInt(objDr.Item("sum_result_false_2").ToString())
                outResult.Add(obj)
            Next
        Else
            For Each objDr As System.Data.DataRow In objDs.Tables("WordReportStationTable4").Rows
                Dim obj As New WordReportStation()
                Dim age34, age3540, age4145, age4650, age51U, result34, result3540, result4145, result4650, result51U As Integer

                obj.list_name = objDr.Item("listname_1")

                If IsDBNull(objDr.Item("age_34")) Then
                    age34 = 0
                Else
                    age34 = CInt(objDr.Item("age_34").ToString())
                End If

                If IsDBNull(objDr.Item("age_35_40")) Then
                    age3540 = 0
                Else
                    age3540 = CInt(objDr.Item("age_35_40").ToString())
                End If

                If IsDBNull(objDr.Item("age_41_45")) Then
                    age4145 = 0
                Else
                    age4145 = CInt(objDr.Item("age_41_45").ToString())
                End If

                If IsDBNull(objDr.Item("age_46_50")) Then
                    age4650 = 0
                Else
                    age4650 = CInt(objDr.Item("age_46_50").ToString())
                End If

                If IsDBNull(objDr.Item("age_51_up")) Then
                    age51U = 0
                Else
                    age51U = CInt(objDr.Item("age_51_up").ToString())
                End If

                If IsDBNull(objDr.Item("result_34")) Then
                    result34 = 0
                Else
                    result34 = CInt(objDr.Item("result_34").ToString())
                End If

                If IsDBNull(objDr.Item("result_35_40")) Then
                    result3540 = 0
                Else
                    result3540 = CInt(objDr.Item("result_35_40").ToString())
                End If

                If IsDBNull(objDr.Item("result_41_45")) Then
                    result4145 = 0
                Else
                    result4145 = CInt(objDr.Item("result_41_45").ToString())
                End If

                If IsDBNull(objDr.Item("result_46_50")) Then
                    result4650 = 0
                Else
                    result4650 = CInt(objDr.Item("result_46_50").ToString())
                End If

                If IsDBNull(objDr.Item("result_51_up")) Then
                    result51U = 0
                Else
                    result51U = CInt(objDr.Item("result_51_up").ToString())
                End If

                'age34 = CInt(IIf(IsDBNull(objDr.Item("age_34")), 0, CInt(objDr.Item("age_34"))))
                'age3540 = IIf(IsDBNull(objDr.Item("age_35_40")), 0, CInt(objDr.Item("age_35_40").ToString()))
                'age4145 = IIf(IsDBNull(objDr.Item("age_41_45")), 0, CInt(objDr.Item("age_41_45").ToString()))
                'age4650 = IIf(IsDBNull(objDr.Item("age_46_50")), 0, CInt(objDr.Item("age_46_50").ToString()))
                'age51U = IIf(IsDBNull(objDr.Item("age_51_up")), 0, CInt(objDr.Item("age_51_up").ToString()))
                'result34 = IIf(IsDBNull(objDr.Item("result_34")), 0, CInt(objDr.Item("result_34").ToString()))
                'result3540 = IIf(IsDBNull(objDr.Item("result_35_40")), 0, CInt(objDr.Item("result_35_40").ToString()))
                'result4145 = IIf(IsDBNull(objDr.Item("result_41_45")), 0, CInt(objDr.Item("result_41_45").ToString()))
                'result4650 = IIf(IsDBNull(objDr.Item("result_46_50")), 0, CInt(objDr.Item("result_46_50").ToString()))
                'result51U = IIf(IsDBNull(objDr.Item("result_51_up")), 0, CInt(objDr.Item("result_51_up").ToString()))

                obj.list_diagnose = age34 + age3540 + age4145 + age4650 + age51U
                obj.list_abnormal = result34 + result3540 + result4145 + result4650 + result51U
                outResult.Add(obj)
            Next
        End If

        Return outResult
    End Function

    Public Function getWordReportStationTable5(ByVal inOrganizationID As String, _
    ByVal inYear As String) As System.Data.DataSet
        Dim decryptText As New DateUtilities.Encrypt_Data()
        Dim objConn As New MySql.Data.MySqlClient.MySqlConnection( _
            decryptText.getDecrypt(System.Configuration.ConfigurationManager.ConnectionStrings( _
            "PoliceHealthConnectionString").ToString(), True))
        Dim objCmd As New MySql.Data.MySqlClient.MySqlCommand()
        objCmd.Connection = objConn
        objCmd.CommandType = CommandType.StoredProcedure
        objCmd.CommandText = "proc_SELECT_WordReportStationTable5"
        objCmd.CommandTimeout = 0

        Dim objParam As New MySql.Data.MySqlClient.MySqlParameter("inOrganizationID", inOrganizationID)
        objCmd.Parameters.Add(objParam)

        objParam = New MySql.Data.MySqlClient.MySqlParameter("inYear", inYear)
        objCmd.Parameters.Add(objParam)

        Dim objDa As New MySql.Data.MySqlClient.MySqlDataAdapter(objCmd)
        Dim objDs As New System.Data.DataSet()
        objDa.Fill(objDs, "WordReportStationTable5")

        Return objDs
    End Function

    Public Function getsWordReportStationTable5(ByVal inOrganizationID As String, _
    ByVal inYear As String) As ArrayList
        Dim outResult As New ArrayList()
        Dim decryptText As New DateUtilities.Encrypt_Data()
        Dim objConn As New MySql.Data.MySqlClient.MySqlConnection( _
            decryptText.getDecrypt(System.Configuration.ConfigurationManager.ConnectionStrings( _
            "PoliceHealthConnectionString").ToString(), True))
        Dim objCmd As New MySql.Data.MySqlClient.MySqlCommand()
        objCmd.Connection = objConn
        objCmd.CommandType = CommandType.StoredProcedure
        objCmd.CommandText = "proc_SELECT_WordReportStationTable5"
        objCmd.CommandTimeout = 0

        Dim objParam As New MySql.Data.MySqlClient.MySqlParameter("inOrganizationID", inOrganizationID)
        objCmd.Parameters.Add(objParam)

        objParam = New MySql.Data.MySqlClient.MySqlParameter("inYear", inYear)
        objCmd.Parameters.Add(objParam)

        Dim objDa As New MySql.Data.MySqlClient.MySqlDataAdapter(objCmd)
        Dim objDs As New System.Data.DataSet()
        objDa.Fill(objDs, "WordReportStationTable5")

        For Each objDr As System.Data.DataRow In objDs.Tables("WordReportStationTable5").Rows
            Dim obj As New WordReportStation()
            obj.list_table5_name = objDr.Item("list_name")
            obj.list_table5_price = objDr.Item("list_price")
            obj.list_table5_police = objDr.Item("list_quantity")
            outResult.Add(obj)
        Next

        Return outResult
    End Function

    Public Sub LoadWordReportStationYear()
        _Data = New ArrayList
        _DataCurrent = 0
        _Data = getsWordReportStationYear()
    End Sub

    Public Sub LoadWordReportStationTable1(ByVal inOrganizationID As String, ByVal inYear As String)
        _Data = New ArrayList
        _DataCurrent = 0
        _Data = getsWordReportStationTable1(inOrganizationID, inYear)
    End Sub

    Public Sub LoadWordReportStationTable2(ByVal inOrganizationID As String, ByVal inYear As String)
        _Data = New ArrayList
        _DataCurrent = 0
        _Data = getsWordReportStationTable2(inOrganizationID, inYear)
    End Sub

    Public Sub LoadWordReportStationTable3(ByVal inOrganizationID As String, ByVal inYear As String)
        _Data = New ArrayList
        _DataCurrent = 0
        _Data = getsWordReportStationTable3(inOrganizationID, inYear)
    End Sub

    Public Sub LoadWordReportStationTable4(ByVal inOrganizationID As String, ByVal inYear As String, ByVal inReportType As String)
        _Data = New ArrayList
        _DataCurrent = 0
        _Data = getsWordReportStationTable4(inOrganizationID, inYear, inReportType)
    End Sub

    Public Sub LoadWordReportStationTable5(ByVal inOrganizationID As String, ByVal inYear As String)
        _Data = New ArrayList
        _DataCurrent = 0
        _Data = getsWordReportStationTable5(inOrganizationID, inYear)
    End Sub

    Public Function NextRecord() As Boolean
        If ((Not _Data Is Nothing) AndAlso (((Not _Data Is Nothing) AndAlso _
            (_DataCurrent < _Data.Count And _Data.Count > 0)))) Then
            _year = _Data(_DataCurrent).year
            _organization_parent_name = _Data(_DataCurrent).organization_parent_name
            _organization_id = _Data(_DataCurrent).organization_id
            _organization_name = _Data(_DataCurrent).organization_name
            _organization_parent_id = _Data(_DataCurrent).organization_parent_id
            _all_police = _Data(_DataCurrent).all_police
            _diagnose_police = _Data(_DataCurrent).diagnose_police
            _police_have_abnormal = _Data(_DataCurrent).police_have_abnormal
            _number_title_name = _Data(_DataCurrent).number_title_name
            _number_police_abnormal = _Data(_DataCurrent).number_police_abnormal
            _list_name = _Data(_DataCurrent).list_name
            _list_diagnose = _Data(_DataCurrent).list_diagnose
            _list_abnormal = _Data(_DataCurrent).list_abnormal
            _list_table5_name = _Data(_DataCurrent).list_table5_name
            _list_table5_price = _Data(_DataCurrent).list_table5_price
            _list_table5_police = _Data(_DataCurrent).list_table5_police
            _DataCurrent += 1
            Return True
        End If
        Return False
    End Function
#End Region

End Class
